home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / falcon / dsptrack / use_it.s < prev   
Text File  |  1995-04-27  |  3KB  |  95 lines
  1. ***********************************************************************
  2. ***********                                        ***********
  3. ***********                                        ***********
  4. ***********  Sample of Use of my DSP SoundTracker Replay    ***********
  5. ***********                                        ***********
  6. ***********       Runs with most 4/6/8 Voices .MOD        ***********
  7. ***********                                        ***********
  8. ***********    Simplet / ABSTRACT                        ***********
  9. ***********    LESAGE Stéphane - Rue des Monts Jura        ***********
  10. ***********    01200 Châtillon-en-Michaille - FRANCE        ***********
  11. ***********                                        ***********
  12. ***********                                        ***********
  13. ***********************************************************************
  14.  
  15. ; 0 for VBL Rout in RVB 50 Hz Only
  16. ; 1 for universal Timer A Rout with CIA-Tempos
  17.  
  18. VBL_Timer    EQU        1
  19.  
  20. ***********************************************************************
  21. ***********                    Inits                ***********
  22. ***********************************************************************
  23.  
  24.         Section    TEXT
  25.  
  26.         clr.l    -(sp)
  27.         move.w    #$20,-(sp)                ; SUPER
  28.         trap        #1                        ; Gemdos
  29.         addq.l     #6,sp
  30.  
  31.         bsr.s    Init_Music
  32.         bmi.s    Error
  33.  
  34.         IfNe        VBL_Timer
  35.             bsr.s    Init_Music_IT
  36.         Else
  37.             move.l    $70.w,Old_VBL
  38.             move.l    #New_VBL,$70.w
  39.         EndC
  40.  
  41. ***********************************************************************
  42. ***********            Waits for a Key                ***********
  43. ***********************************************************************
  44.  
  45.          move.w    #7,-(sp)                    ; Crawcin
  46.         trap        #1                        ; Gemdos
  47.         addq.l    #2,sp
  48.  
  49. ***********************************************************************
  50. ***********       Restore Interrupts and Cut DSP Sound        ***********
  51. ***********************************************************************
  52.  
  53.         IfNe        VBL_Timer
  54.             bsr.s    Stop_Music_IT
  55.         Else
  56.             move.l    Old_VBL,$70.w
  57.         EndC
  58.  
  59.         bsr.s    Stop_Music
  60.  
  61. Error    clr.w     -(sp)                    ; PTerm
  62.         trap     #1                        ; Gemdos
  63.  
  64. ***********************************************************************
  65. ***********                 VBL Interrupt                ***********
  66. ***********************************************************************
  67.  
  68. New_VBL    move.w    #25000,d7
  69.         dbra        d7,*
  70.  
  71.         bsr.s    SndTrack_IT
  72.         rte
  73.  
  74. ***********************************************************************
  75. ***********            SoundTracker Rout                ***********
  76. ***********************************************************************
  77.  
  78.         Include    'TRACKER.S'
  79.  
  80. ***********************************************************************
  81. ***********                DATA Section                ***********
  82. ***********************************************************************
  83.  
  84.         Section    DATA
  85.  
  86. Module    IncBin    'URA.MOD'        ; LAST OF THE DATA SECTION
  87.  
  88. ***********************************************************************
  89. ***********                BSS Section                ***********
  90. ***********************************************************************
  91.  
  92.         Section    BSS
  93.  
  94. Old_VBL    ds.l        1
  95.